home *** CD-ROM | disk | FTP | other *** search
/ Know Your Hockey - The Greatest Player Resource / Know Your Hockey: The Greatest Player Resource.iso / hockey / director / ssqcst.cst / 00035_Script_DetailScript < prev    next >
Text File  |  1998-09-28  |  3KB  |  90 lines
  1. global gTheBench,gXcast,gPrompts,gClipout
  2.  
  3. on MouseDown
  4.   set the mouseUpScript = "dontPassEvent"
  5.   set the mouseDownScript = "dontPassEvent"
  6.   set the movierate of sprite 48 = 0
  7.   updatestage
  8.   set localList = getaprop(gtheBench,#Card)-- get available cards for this player
  9.   set LocalText =  getaprop(gtheBench,#text)-- available text cards for this player
  10.   -- get the current card name
  11.   set currentCard = the name of member (the membernum of sprite 7)of castlib gXcast
  12.   set range = count(LocalList)
  13.   set CardNum = getOne(LocalList,currentCard)
  14.   set the membernum of sprite 40 = the number of member "details" of castlib "SSQCST"
  15.   repeat with x = 1 to count(LocalText)
  16.     set templist = getat(LocalText,x)
  17.     put templist
  18.     
  19.     set test = getone(templist,currentcard)
  20.     if test > 0 then
  21.       set CardNum2 = x
  22.       exit repeat
  23.     end if
  24.   end repeat
  25.   
  26.   
  27.   set theNum = max(CardNum,CardNum2)-- use the grater value as one maybe 0
  28.   
  29.   if TheNum < Range then
  30.     set NextCard = getat(LocalList,(TheNum+1))  
  31.     set which =  Thenum+1
  32.     
  33.   else
  34.     set NextCard = getat(LocalList,1)  
  35.     set which = 1
  36.     
  37.   end if
  38.   set it = the number of member NextCard of castlib gXcast
  39.   set the membernum of sprite 7 = it
  40.   set  the scriptText of member (the number of member it) = ¼
  41. The scriptText of member (the number of member  "BigCard" of castlib "SSQCST")
  42.   setat(gprompts,7,nextcard)
  43.   
  44.   -- change the video
  45.   set loseit = the member of sprite 48
  46.   set localVideoList = getaprop(gtheBench,#video)
  47.   set thevideo = getat(localVideoList,which)
  48.   ProJrOFF -- resets the pro and jr Icon to off
  49.   set the membernum of sprite 48 = the number of member thevideo of castlib gXcast
  50.   unloadMember member loseit
  51.   updatestage
  52.   set gclipout =( the duration of member thevideo of castlib gXcast)-30
  53.   set the movierate of sprite 48 = 0
  54.   setvideovolume
  55.   set  gClipOut =the duration of member theVideo of castlib gXCast -30-- sets the end point for the script videoplayer
  56.   ControlOn -- turns the control bar 
  57.   --   sets up the text button
  58.   -- assumes that the More button was cut out of a large card so registration is the same
  59.   puppetsprite 43,1
  60.   set the type of sprite 43 = 16
  61.   set the membernum of sprite 43 = the number of member "MoreInfo" of castlib "SSQCST"
  62.   set the ink of sprite 43 = 32
  63.   set the locv of sprite 43 = the locv of sprite 1
  64.   set the loch of sprite 43 = the loch of sprite 1
  65.   set the blend of sprite 43 = 0
  66.   set the visible of sprite 43 = 1
  67.   set the type of sprite 9 = 0
  68.   set the type of sprite 10 = 0
  69.   set t = the  number  of member  "MoreInfo"-- reset the more info script
  70.   set  the scriptText of member  t = the scriptText of member (the number of member  "DisplayText" of castlib "SSQCST")
  71.   put which && "of" && range into field "CardCount" of castlib "internal"
  72.   updateStage
  73.   -- play the card title
  74.   set  TheSound = getaprop(gTheBench,#title)
  75.   set positionList = getaProp(gTheBench,#video)
  76.   -- find which large card is on the screen 
  77.   set selection = the name of member (the membernum of sprite 48) of castlib gXCast
  78.   set which = getPos(positionList,selection)
  79.   set playit = getat ( TheSound,which)
  80.   puppetsound  playit
  81.   updateStage
  82.   
  83.   set the mouseUpScript to empty
  84.   set the mouseDownScript to empty
  85.   
  86. end
  87.  
  88.  
  89.  
  90.